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ZTITLE ‘EDTSPRAPPNUM = include digits in a token’ 


MODULE EDTSPRAPPNUM ( 


IDENT = ‘V04-000' 
)= 


BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vaansteeetee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


“mM 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


++ 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


Include digits in a token. 


ENVIRONMENT: Runs at any access mode - AST reentrant 


MODIFIED BY: 
1-001 - Original. DJS 25-Feb-1981. This module was created by 


1-002 = Regular 


extracts ing routine APPEND_NUM from module PARSER. 
ze headers. JBS 12-Mar-1981 


1-005 - cosnee siphonuner te test. JBS ee 1982 


1-004 = Add 


f) 
' 
1 
i AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 
‘ 


0 support conditional. JBS 11-Feb-1983 
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Bliss-32 Fed od Pa 3 
SMASTER: CEDT.SRCJPRAPPNUM.BLI; 1 (3) 


ZSBTTL "EDTSSPA_APPDIG = include digits in a token’ 
GLOBAL ROUTINE EDTSSPA_APPDIG ! Include digits in a token 
= 
++ 
FUNCTIONAL DESCRIPTION: 
gt a string of digits and letters to the current token. Normally, 
ery type tokens are terminated by a digit. In some cases we want 
al 


gits in the token. This routine expands the congee of the 
current token to include all digits and letters which immed 


] 

' 

ately follow. 

i FORMAL PARAMETERS: 

NONE 

{ IMPLICIT INPUTS: 

EDTSSA_CMD_BUF 

i EDTS$C_PA_CH 

EDTS$$G_PA_CURTOKLEN 

EDT$$G_PA_TOKCLASS 

i IMPLICIT OUTPUTS: 

EDTS$$G_PA_CURTOKLEN 

{ ROUTINE VALUE: 

i 

' 

& 
| 
| 


1 = token is a CL_NAME : 
0 = token is not a CL_NAME, no action taken 


SIDE EFFECTS: 


NONE 
BEGIN 
EXTERNAL ROUTINE ? 
EDTSSPA_GETCH : NOVALUE; ' Get the next character from the input Line 
caren . 
EDTSSA_CMD_BUF, ! Pointer into command buffer. 
EDTSSC_PA_CH ' the currently being precessed character 
EDT$$G_PA~CURTOKLEN, ! Length of current token 
Z1F SUPPORT_VT220 
ZTHE 


ef EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters 


EDT$$G_PA_TOKCLASS; ! class of current token 
IF (.EDT$$G_PA_TOKCLASS NEQ CL_NAME) THEN RETURN (0); 


< peae— erse 
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EpTeerarrwun EDTSPRAPPNUM = include digits in a token 18-Sep-19 4 9}: 46: 7 VAX-11 Bliss-32 ys 0766 Page 4 
v04-000 EDTSSPA_APPDIG = include digits in a token 14-Sep-1984 12:24:07 DISKSVMSMASTER:CEDT.SRCJPRAPPNUM.BLI;:1 (3) 
3; 4 0999 
3 16 L 1 30 ZIF SUPPORT_VT220 
: 133 } 03 Z THEN 
: 150 1 08 WHILE ((.EDTS$B_CHAR_INFO F-EDTSSC_PA_CH, g. 6. é- fi NEQ 0) ! Alphabetic 
; 1 190% (.EDTSSB_CHAR_INFO C.EDTSSC_PA_CH, 0, 0, 8, EQL %X"FO")) | Numeric 
a. % § U 1299 ZELSE 
; 154 U 100 
3; 155 U 1008 WHILE (((.EDTS$$C_PA_CH GEQ %C'A') AND (-EOTS$C_PA_CH LEQ %C°Z")) OR ! 
; 156 U 1009 (( EDTS$$C_PA_CH’GEQ %C'a') AND (.EDTS$$C_PA_CH LEQ %C'a')) OR 
: 137 U 1919 ((.EDTS$C"PA_CH GEQ %C'O") AND (.EDTS$C"PA_CH LEQ %C'9"))) DO 
; 158 1011 “FI 
:; 189 ISt¢ 
3; 160 101 BEGIN 
3: 161 1014 EDTSSPA_GETCH (); 
: 16¢ 1015 CHSWCHAR (.EDTS$C_PA_CH, CHSPLUS (.EDTSSA_CMD_BUF, -1)); 
> 16 1016 EDTS$G_PA_CURTOKLEN = .€DT$$G_PA_CURTOKLEN + T; 
: 164 1017 END; 
: 165 1018 
; 166 1019 RETURN (1); 
3 167 1020 END; ! of routine EDTSSPA_APPDIG 


-TITLE EDTSPRAPPNUM EDTSPRAPPNUM - include digits in a 
-IDENT \v04-000\ 

-EXTRN EDTSSPA_GETCH, EDTSSA_CMD_BUF 

-EXTRN EDTSS$C_PA_CH, EDTS$G_PA_CORTOKLEN 

“EXTRN EDTS$B~CHAR_INFO 

-EXTRN EDT$$G_PA_TOKCLASS 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


000C 00000 -ENTRY EDTSSPA_APPDIG, Save R2,R3 3 0944 

53 000000006 00 9 00002 MOVAB EDTSS$C_PA_CH, R3 : 
000000006 90 p 90009 Ist EDTSSG_PA_TOKCLASS > 0998 
52 3 36 90011 MOVL EDTS$$C_PA_CH, R2 > 1003 

50 0000000060042 gE 0014 1$: MOVAB EDT$S$B CHAR_iNFOCR2I, RO : 

« fe igo =| Bus HO : 
FO. aSF 60 9 09 \ CMB {R0), #240 > 1004 
000000006 00 00 FB 00027 2$: CALLS #0, EDT$S$PA_GETCH > 1014 
0 000000006 9 DO 00 - MOVL EDTS$A_CMD_BuF, RO + 1015 

5 p 0 MOVL EDTS$C~PA_CH, R F 

FF 5 0 00038 MOVB R2, ~1TROY 3 
000000006 00 06 00 INCL  EDT$$G_PA_CURTOKLEN : 1016 
0 11 0004 BRB 1$ > 1003 
50 1 p60 0044 3$: MOVL #1, RO > 1019 

4 0047 RET : 
50 b4 048 4$: CLRL = RO > 1020 

4 QOO4A RET 3 


3; Routine Size: 75 bytes, Routine Base: _EDTSCODE + 0000 
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Name 
_EDTSCODE 


File 


-$255$DUA2 
~$255$DUA2 
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EDTSPRAPPNUM = include digits in a token 18-56 Sep-19 7 VAX-11 Bliss-32_V 
EDTSSPA_APPDIG = nc lude-digits tn a token eat 93: 38: a} DISKSVMSMASTER: ceo 
1034 ] END ! of module EDTSPRAPPNUM 
1025 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
75 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
cocecece Symbols -<------- Pages Processing 
Total Loaded Percent Mapped Time 
8:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 
8:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
8:CEDT.SRCIJSUPPORTS.L32;1 2 1 50 5 00:00.1 


COMMAND QUALIFIERS 


nes ye ' 
OSRCSPRAPPNUM.BLISTo™ (45 


FSP ORT SOLD TNE TEM, PT SE EES SUTRA R OER AL FO, SEC P RAPPER LORE PRAPT MSRC$:PRAPPNUM.BLI/UPDATE=(ENHS: PRAP 


75 code + 0 data bytes 
00:13.8 
00:17.1 
4459 


Lexemes/CPU-Min: 13997 


Memory Used: 


92 pages 
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